#!/usr/bin/perl

sub calculate {
  my $number = .5;
  my $answer = $number ** .5;
  print "$answer\n";
}
calculate();
